home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / EGYPTW.DIR / 01712_Script_Mummification < prev    next >
Text File  |  1995-09-13  |  10KB  |  366 lines
  1. global gQuest, gBeenClicked
  2.  
  3. on EMummRollovers1
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) then
  7.       repeat while rollover(6)
  8.         EgyptCursor
  9.         puppetsprite 15, true
  10.         set the locH of sprite 15 to 255
  11.         set the locV of sprite 15 to 288
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             repeat while gBeenClicked = 1
  18.               AnimateLoopFast 6, 707, 3, 0, 2
  19.             end repeat
  20.           end if
  21.         end if
  22.       end repeat
  23.       set the locH of sprite 15 to 955
  24.       puppetsprite 15, false
  25.       updatestage
  26.     else
  27.       if rollover(7) then
  28.         repeat while rollover(7)
  29.           EgyptCursor
  30.           puppetsprite 16, true
  31.           set the locH of sprite 16 to 555
  32.           set the locV of sprite 16 to 315
  33.           updatestage
  34.           if the mousedown then
  35.             set GBeenClicked = 1
  36.           else
  37.             if gBeenClicked = 1 then
  38.               set the locH of sprite 16 to 855
  39.               updatestage
  40.               repeat while gBeenClicked = 1
  41.                 MummyAnimate 7, 710, 5, "SE401400.AIF", 1
  42.               end repeat
  43.             end if
  44.           end if
  45.         end repeat
  46.         set the locH of sprite 16 to 955
  47.         puppetsprite 16, false
  48.         updatestage
  49.       else
  50.         if rollover(8) then
  51.           ArrowCursor
  52.           repeat while rollover(8)
  53.             set the locH of sprite 9 to 408
  54.             set the locV of sprite 9 to 282
  55.             updatestage
  56.           end repeat
  57.           set the locH of sprite 9 to 908
  58.           updatestage
  59.         else
  60.           if rollover(10) then
  61.             ArrowCursor
  62.             repeat while rollover(10)
  63.               set the locH of sprite 11 to 495
  64.               set the locV of sprite 11 to 325
  65.               updatestage
  66.             end repeat
  67.             set the locH of sprite 11 to 995
  68.             updatestage
  69.           else
  70.             if rollover(12) then
  71.               ArrowCursor
  72.               repeat while rollover(12)
  73.                 set the locH of sprite 13 to 499
  74.                 set the locV of sprite 13 to 324
  75.                 updatestage
  76.               end repeat
  77.               set the locH of sprite 13 to 999
  78.               updatestage
  79.             else
  80.               if rollover(14) then
  81.                 ArrowCursor
  82.                 repeat while rollover(14)
  83.                   set the locH of sprite 28 to 503
  84.                   set the locV of sprite 28 to 161
  85.                   updatestage
  86.                 end repeat
  87.                 set the locH of sprite 28 to 903
  88.                 updatestage
  89.               else
  90.                 if rollover(40) then
  91.                   HandCursor
  92.                 else
  93.                   if rollover(41) then
  94.                     HandCursor
  95.                   else
  96.                     if rollover(42) then
  97.                       HandCursor
  98.                     else
  99.                       ArrowCursor
  100.                     end if
  101.                   end if
  102.                 end if
  103.               end if
  104.             end if
  105.           end if
  106.         end if
  107.       end if
  108.     end if
  109.   end if
  110.   RandomQuestion(gQuest)
  111. end
  112.  
  113.  
  114. on EMummRollovers2
  115.   set gBeenClicked = 0
  116.   if (not(CheckClickedStatus(gQuest))) then
  117.     if rollover(6) then
  118.       repeat while rollover(6)
  119.         EgyptCursor
  120.         puppetsprite 13, true
  121.         set the locH of sprite 13 to 265
  122.         set the locV of sprite 13 to 352
  123.         updatestage
  124.         if the mousedown then
  125.           set GBeenClicked = 1
  126.         else
  127.           if gBeenClicked = 1 then
  128.             repeat while gBeenClicked = 1
  129.               AnimateLoopToFroSlow 6, 750, 4, "SE400901.AIF", 1
  130.             end repeat
  131.           end if
  132.         end if
  133.       end repeat
  134.       set the locH of sprite 13 to 965
  135.       puppetsprite 13, false
  136.       updatestage
  137.     else
  138.       if rollover(8) then
  139.         repeat while rollover(8)
  140.           EgyptCursor
  141.           puppetsprite 9, true
  142.           set the locH of sprite 9 to 427
  143.           set the locV of sprite 9 to 308
  144.           updatestage
  145.           if the mousedown then
  146.             set GBeenClicked = 1
  147.           else
  148.             if gBeenClicked = 1 then
  149.               repeat while gBeenClicked = 1
  150.                 CloseBox 
  151.               end repeat
  152.             end if
  153.           end if
  154.         end repeat
  155.         set the locH of sprite 9 to 927
  156.         puppetsprite 9, false
  157.         updatestage
  158.         puppetsprite 8, false
  159.       else
  160.         if rollover(7) then
  161.           repeat while rollover(7)
  162.             EgyptCursor
  163.             set the locH of sprite 11 to 452
  164.             set the locV of sprite 11 to 327
  165.             updatestage
  166.             if the mousedown then
  167.               set GBeenClicked = 1
  168.             else
  169.               if gBeenClicked = 1 then
  170.                 repeat while gBeenClicked = 1
  171.                   OpenCoffin 
  172.                 end repeat
  173.               end if
  174.             end if
  175.           end repeat
  176.           set the locH of sprite 11 to 952
  177.           updatestage
  178.         else
  179.           if rollover(10) then
  180.             ArrowCursor
  181.           else
  182.             if rollover(12) then
  183.               ArrowCursor
  184.               repeat while rollover(12)
  185.                 set the locH of sprite 28 to 446
  186.                 set the locV of sprite 28 to 148
  187.                 updatestage
  188.               end repeat
  189.               set the locH of sprite 28 to 946
  190.               updatestage
  191.             else
  192.               if rollover(14) then
  193.                 ArrowCursor
  194.                 repeat while rollover(14)
  195.                   set the locH of sprite 15 to 315
  196.                   set the locV of sprite 15 to 157
  197.                   updatestage
  198.                 end repeat
  199.                 set the locH of sprite 15 to 915
  200.                 updatestage
  201.               else
  202.                 if rollover(16) then
  203.                   ArrowCursor
  204.                   repeat while rollover(16)
  205.                     set the locH of sprite 17 to 387
  206.                     set the locV of sprite 17 to 125
  207.                     updatestage
  208.                   end repeat
  209.                   set the locH of sprite 17 to 987
  210.                   updatestage
  211.                 else
  212.                   if rollover(18) then
  213.                     ArrowCursor
  214.                     repeat while rollover(18)
  215.                       set the locH of sprite 19 to 420
  216.                       set the locV of sprite 19 to 269
  217.                       updatestage
  218.                     end repeat
  219.                     set the locH of sprite 19 to 920
  220.                     updatestage
  221.                   else
  222.                     if rollover(39) then
  223.                       HandCursor
  224.                     else
  225.                       if rollover(41) then
  226.                         HandCursor
  227.                       else
  228.                         if rollover(42) then
  229.                           HandCursor
  230.                         else
  231.                           ArrowCursor
  232.                         end if
  233.                       end if
  234.                     end if
  235.                   end if
  236.                 end if
  237.               end if
  238.             end if
  239.           end if
  240.         end if
  241.       end if
  242.     end if
  243.   end if
  244.   RandomQuestion(gQuest)
  245. end
  246.  
  247. on MummyAnimate whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
  248.   ArrowCursor
  249.   set gSprite = whichsprite
  250.   set gCast = whichCast
  251.   set the castNum of sprite gSprite = gCast
  252.   set Count = 0
  253.   repeat while Count < HowManyTimes and (the MouseUp)
  254.     puppetsound whichsound
  255.     set the castNum of sprite gSprite = gCast + 1
  256.     updatestage
  257.     wait .2
  258.     set the castNum of sprite gSprite = gCast + 2
  259.     updatestage
  260.     wait .2
  261.     set the castNum of sprite gSprite = gCast + 3
  262.     updatestage
  263.     wait .2
  264.     set the castNum of sprite gSprite = gCast + 4
  265.     updatestage
  266.     wait .2
  267.     set the castNum of sprite gSprite = gCast + 3
  268.     updatestage
  269.     puppetsound whichsound
  270.     wait .2
  271.     set the castNum of sprite gSprite = gCast + 2
  272.     updatestage
  273.     wait .2
  274.     set the castNum of sprite gSprite = gCast + 1
  275.     updatestage
  276.     wait .2
  277.     set the castNum of sprite gSprite = gCast + 2
  278.     updatestage
  279.     wait .2
  280.     set the castNum of sprite gSprite = gCast + 3
  281.     updatestage
  282.     wait .2
  283.     set the castNum of sprite gSprite = gCast + 4
  284.     updatestage
  285.     wait .4
  286.     set the castNum of sprite gSprite = gCast + 3
  287.     updatestage
  288.     puppetsound whichsound
  289.     wait .2
  290.     set the castNum of sprite gSprite = gCast + 2
  291.     updatestage
  292.     wait .2
  293.     set the castNum of sprite gSprite = gCast + 1
  294.     updatestage
  295.     wait .2
  296.     set the castNum of sprite gSprite = gCast
  297.     updatestage
  298.     wait .2
  299.     set count = count + 1
  300.   end repeat
  301.   set the castnum of sprite gSprite = gCast
  302.   updatestage
  303.   Puppetsound 0
  304.   set gbeenclicked = 0
  305. end
  306.  
  307. on CloseBox
  308.   ArrowCursor
  309.   set gSprite = 8
  310.   set gCast = 740
  311.   puppetsprite 8, true
  312.   set the castNum of sprite gSprite = gCast
  313.   puppetsound "SV400501.AIF"
  314.   set the castNum of sprite gSprite = gCast + 1
  315.   updatestage
  316.   wait .2
  317.   set the castNum of sprite gSprite = gCast + 2
  318.   updatestage
  319.   wait .2
  320.   set the castNum of sprite gSprite = gCast + 3
  321.   updatestage
  322.   wait .15
  323.   set the castNum of sprite gSprite = gCast + 4
  324.   updatestage
  325.   wait .1
  326.   set gbeenclicked = 0
  327. end
  328.  
  329.  
  330.  
  331. on OpenCoffin
  332.   ArrowCursor
  333.   set gSprite = 7
  334.   set gCast = 745
  335.   puppetsprite 7, true
  336.   set count = 0
  337.   repeat while count < 1 and the mouseup
  338.     
  339.     set the castNum of sprite gSprite = gCast
  340.     puppetsound "SV400601.AIF"
  341.     set the castNum of sprite gSprite = gCast + 1
  342.     updatestage
  343.     wait .3
  344.     set the castNum of sprite gSprite = gCast + 2
  345.     updatestage
  346.     wait .2
  347.     set the castNum of sprite gSprite = gCast + 3
  348.     updatestage
  349.     wait .2
  350.     set the castNum of sprite gSprite = gCast + 4
  351.     updatestage
  352.     wait 2
  353.     puppetsound "SV400602.AIF"
  354.     set the castNum of sprite gSprite = gCast + 2
  355.     updatestage
  356.     set count = count +1
  357.   end repeat
  358.   set the castNum of sprite gSprite = gCast
  359.   updatestage
  360.   wait 1
  361.   puppetsound 0
  362.   set gbeenclicked = 0
  363.   puppetsprite 7, false
  364. end
  365.  
  366.